(font-lock-fontify-region): Handle comment-start-skip = nil.

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index c2a3a4dfbd84d90d37ca6146fcbb1a0262568593..c6f28b0739ed1f1d58e84b0cd4aaa8ff22504aec 100644 (file)
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -166,7 +166,10 @@ slow things down!")
       ;; Find each interesting place between here and END.
       (while (and (< (point) end)
                  (setq prev (point) prevstate state)
-                 (re-search-forward (concat "\\s\"\\|" comment-start-skip) end t)
+                 (re-search-forward (if comment-start-skip
+                                        (concat "\\s\"\\|" comment-start-skip)
+                                      "\\s\"")
+                                    end t)
                  ;; Clear out the fonts of what we skip over.
                  (progn (remove-text-properties prev (point) '(face nil)) t)
                  ;; Verify the state at that place